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400 Atrium— Otm Tandy Cantar, Fort Worth, Taxaa 76102 


Problem 

When adding a new custCHter, the default value displayed for DATE OF lAST DR 
and DATE OF lAST Ol is incorrect. 

* * IHE FOLEOWDJG LINE CHANGES ARE REQUIRED! * * 


Solution 

The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup ccpy of the 
program. 

2. In BASIC load the program by typing IOAD"AEV'BAS". 

3. ^teke the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 

Old Line: 445 MD$=SrP.$(MD) 

New Line; 445 MD$--^J:DS (STR$ (MD), 2) 

ADD New Line: 446 IF LEN(MD$)<>2 THEN MD$="0"+MD$ 


4. Type SAVE"AR./BAS" to save the changes in the program. 






















CUSTOMER SERVICE BULLETIN 


Subject 


A/R SERIES I 4554-JJ5 


Page 


Of 


5. In BASIC load the program 1:^ typing LQAD"ARCF/BAS". 

6. Ma]ce the follovdng corrections: 

Old Line: 1030 IX>#=j3:QOSUB50205:T$^I$(-18263):ISEnA$(J0)=KE$:IiSEaA$(l)="" 

New Line: 1030 E»#=0:QOSUB50240:T$^I$(-NN) :QOSOB50205:ISETA$(0)=KE$: 
LSETA$(1)="" 

Old Line: 12080 GOSUB 51400: IF RIH* 'THEN RETURN 

ELSE II§=41$: GOSUB 50225: LSET A$(I)=*1KI$(NN): RETURN 'DATE 

New Line: 12080 GOSUB 51400:II$=R$: GOSUB 50225: ISET A$(I)= 

MKI$(NN): RETURN 'DATE 

Old Line: 50225 YR=^CVL(RIGHT$(II$,2)): MD=VAL(IEET$(II$,2)): 
VAL(MID$(II$,4)): N»=INT(YR*365.25+.75)4MD(MD)+DA-18263: 

IF (YR MDD 4)00 AND MD>2 THEN NN=NN-1 

New Line: 50225 YR=VAL(RIGHr$(II$,2)): MD=VAL(IEFT$(II$,2)): DA;= 
VAL(MID${II$,4,2)): NN=IIirr(YR*365.25+.75)+M3(MD)+DA-18263: 

IF (YR MDD 4)00 AND MD>2 THEN NN=IW-1 

7. Type SAVE"ARCF/BAS" to save the changes in the program. 

8. At TRSDOS READY, nake a bado^ copy of the corrected diskette. 








